home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / wb / czesc_3 / newtool / install newtool < prev    next >
Text File  |  1994-03-05  |  2KB  |  95 lines
  1. ; Installation script for NewTool
  2.  
  3. (transcript "Installing NewTool...")
  4.  
  5. (copylib
  6.         (prompt "Install WhatIs library.")
  7.         (help @copylib-help)
  8.         (source "LIBS/whatis.library")
  9.         (dest "libs:")
  10.         (confirm)
  11. )
  12.  
  13. ( if (= (exists "LIBS:ReqTools.library" (noreq)) 0)
  14.     (message "You need to get a copy of ReqTools.library\n"
  15.          "and copy it to your libs: directory")
  16. )
  17.  
  18. (set name
  19.         (askdir
  20.                 (prompt "Install NewTool where?")
  21.                 (help @askdir-help)
  22.                 (default "C:")
  23.         )
  24. )
  25.  
  26. (copyfiles
  27.         (source "NewTool")
  28.         (dest name)
  29. )
  30.  
  31. (set name
  32.         (askdir
  33.                 (prompt "Install NewTool Prefs where?")
  34.                 (help @askdir-help)
  35.                 (default "SYS:Prefs")
  36.         )
  37. )
  38.  
  39. (copyfiles
  40.         (source "NewToolPrefs")
  41.         (dest name)
  42. )
  43.  
  44. (copyfiles
  45.         (source "NewToolPrefs.info")
  46.         (dest name)
  47. )
  48.  
  49. (set prefs
  50.         (askchoice
  51.                 (prompt "Install NewTool prefs where?")
  52.                 (help @askchoice-help)
  53.                 (choices "ENV: and ENVARC:" "S" )
  54.                 (default 0)
  55.         )
  56. )
  57.  
  58. (if (= prefs 0)                           ; conditional test
  59.     (
  60.        (copyfiles
  61.                 (source "NewTool.prefs")
  62.                 (dest "ENV:")
  63.         )
  64.        (copyfiles
  65.                 (source "NewTool.prefs")
  66.                 (dest "ENVARC:")
  67.         )
  68.     )
  69.    (copyfiles
  70.             (source "NewTool.prefs")
  71.             (dest "S:")
  72.     )
  73. )                                     ; end of if
  74.  
  75. (set what
  76.         (askbool
  77.                 (prompt "Copy FileTypes to S:")
  78.                 (help "It's up to YOU.")
  79.                 (choices "Yes" "No")
  80.                 (default 0)
  81.         )
  82. )
  83.  
  84. (if (= what 1)                           ; conditional test
  85.    (copyfiles
  86.             (source "FileTypes")
  87.             (dest "S:")
  88.     )
  89. )
  90.  
  91. (set @default-dest name)
  92.  
  93. (exit)
  94.  
  95.